home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / misc_lsp.arc / AUTONUMB.LSP next >
Encoding:
Text File  |  1987-04-07  |  534 b   |  18 lines
  1. (Defun C:AN ()
  2. (Setvar "Cmdecho" 0)
  3. (Setq G (Getvar"Blipmode"))
  4. (Setvar "Blipmode" 0)
  5. (Setq A (Getint"\nStarting number:"))
  6. (Setq B (Getint"\nEnding number:"))
  7. (Setq P1 (Getpoint"Starting point:"))
  8. (Setq C (Getdist P1"\nDistance between numbers:"))
  9. (Setq A1 (Getangle P1 "\nAngle to run numbers:"))
  10. (Setq D (Getdist P1"\nText height:"))
  11. (if( > A B)(Setq E -1)(Setq E 1))
  12. (Repeat ( + 1 (Abs( - A B)))
  13. (Setq F (Itoa A))
  14. (Command "Text" "C" P1 D 0 F)
  15. (Setq A ( + A E))
  16. (Setq P1 (Polar P1 A1 C)))
  17. (Setvar "Blipmode" G))
  18.